home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / hyprln.zip / HYPRDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1990-12-13  |  3KB  |  72 lines
  1. (** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **)
  2. (**             HyperText help utility Demo for Turbo Pascal              **)
  3. (**                     Copyright (c) 1990 by BGASoft                     **)
  4. (**                       Written By Robert Gurrieri                      **)
  5. (**                             September 1990                            **)
  6. (** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **)
  7.  
  8. {$M,2000,2500,2500}
  9. {!!!!!!!!}
  10. {! NOTE !}{^---- You must set the low heap limit to a minimum value of 2500 }
  11. {!!!!!!!!}
  12.  
  13. Program HyperDemo;
  14.  
  15. Uses
  16.   Crt,
  17.   Hyper60;       {If you are using Turbo Pascal v5.0 or v5.5 then include the}
  18.                  {appropriate unit instead}
  19. Begin
  20.   If LastMode = 7 Then
  21.     Begin
  22.       COLOR[1] := 0; {Background color for Normal text}
  23.       COLOR[2] := 7; {Foreground color for Normal text}
  24.       COLOR[3] := 15;{Background color for Highlight Bar (reverse video)}
  25.       COLOR[4] := 0; {Foreground color for Highlight Bar (reverse video)}
  26.       COLOR[5] := 15;{Foreground color for Brighter text (help keywords)}
  27.     End
  28.   Else
  29.     Begin
  30.       COLOR[1] := 1; {Background color for Normal text}
  31.       COLOR[2] := 15;{Foreground color for Normal text}
  32.       COLOR[3] := 15;{Background color for Highlight Bar (reverse video)}
  33.       COLOR[4] := 1; {Foreground color for Highlight Bar (reverse video)}
  34.       COLOR[5] := 11;{Foreground color for Brighter text (help keywords)}
  35.     End;
  36.  
  37.   ClrScr;
  38.   GotoXY(1,10);
  39.   Writeln('Welcome to the Demonstration program for HyperLink(tm)!');
  40.   Writeln;
  41.   Writeln('press any key to continue...');
  42.   Repeat
  43.   Until ReadKey > #0;
  44.   ClrScr;
  45. { You will probably want to turn the cursor off, as well as save the }
  46. { contents of the screen at this time.}
  47.   HyperLink(1,2,79,25,'Main Menu');{****************************************}
  48. { Turn the cursor back on and restore the previous contents of the screen. }
  49.  
  50.   ClrScr;
  51.   GotoXY(1,10);
  52.   Writeln('This help facility allows you specify the size and location of the');
  53.   Writeln('help window on the screen.');
  54.   Writeln;
  55.   Writeln('press any key to continue...');
  56.   Repeat
  57.   Until ReadKey > #0;
  58.   ClrScr;
  59.   HyperLink(12,2,68,21,'Main Menu');{****************************************}
  60.  
  61.   ClrScr;
  62.   GotoXY(1,10);
  63.   Writeln('You may also start the help facility with the topic of your choice');
  64.   Writeln;
  65.   Writeln('press any key to continue...');
  66.   Repeat
  67.   Until ReadKey > #0;
  68.   ClrScr;
  69.   HyperLink(19,5,79,24,'Registration');{******************************}
  70.  
  71. End.
  72.